-- card: 32847 from stack: in
-- bmap block id: 33335
-- flags: 4000
-- background id: 8902
-- name: coffee machine
----- HyperTalk script -----
on opencard
  put "This is a large metal coffee maker.  You wonder what might be"& " inside." into field "info"
  global position
  put "officer's mess" into position
  pass opencard
end opencard


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=161 top=302 right=323 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  global filter
  if filter is "yes" then
    beep
    exit mouseup
  end if
  global donteat
  get bkgnd field "do what"
  if the number of words in it > 1 then
    beep 2
    oneword
    exit mouseup
  end if
  if it contains "close" then
    put "The coffee maker cannot be closed." into field "info"
    exit mouseup
  end if
  if it contains "examine" or it contains "look" then
    send "opencard" to this card
    exit mouseup
  end if
  if it contains "hit" or it contains "kick" or it contains "punch" then
    ouch
    exit mouseup
  end if
  if it contains "get" or it contains "move" or it contains "pull" then
    put "The coffee maker is too heavy to move." into field "info"
    exit mouseup
  end if
  if it contains "eat" or it contains "consume" then
    global donteat
    put donteat into field "info"
    exit mouseup
  end if
  if it contains "open" then
    put "The coffee maker cannot be opened." into field "info"
    exit mouseup
  end if
  if it is "" then
    put "Speak up.  I can't hear you." into field "info"
    exit mouseup
  end if
  if it contains "use" or it contains "operate" or it contains"fill" then
    ask "What would you like to fill?"
    global inventory
    if it contains "cup" and inventory contains "cup" then
      global coffee
      if coffee is "" then
        put "You fill the cup to the brim with the boiling brown "& "liquid."&return&"Ÿ" into field "info"
        global coffee
        put "yes" into coffee
        global filter
        put "yes" into filter
        get offset ("cup",inventory)
        put " of coffee"&return into char  3 +it  of inventory
      else put "The cup is already full." into field "info"
    else
      if inventory contains it then
        put "You shouldn't put coffee in the "&it&"." into field "info"
      else put "You don't have a "&it&"." into field "info"
    end if
    exit mouseup
  end if
  idunno
end mouseUp

on cont
  global filter
  if filter is "yes" then
    put "" into filter
    go card "officer's mess"
  end if
end cont




-- part contents for background part 2
----- text -----
What would you like to do with the Art?

-- part contents for background part 7
----- text -----
Coffee Machine